home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog111 < prev    next >
Encoding:
Text File  |  1995-06-29  |  228 b   |  17 lines
  1. # simple pushButton test
  2.  
  3. proc pushCB {} {
  4.     puts pushed
  5.     set x [exec cat prog1]
  6.     puts stdout "$x"
  7. }
  8.  
  9. xtAppInitialize -class Program
  10.  
  11. xmPushButton .fred managed
  12. .fred activateCallback pushCB
  13.  
  14. . realizeWidget
  15.  
  16. . mainLoop
  17.